@import url('https://fonts.googleapis.com/css2?family=Tilt+Prism&display=swap');

body{background-color:#00f;color:#ffffff}
h2{font-family: "Tilt Prism";}
p{color:#fffff0}

My Meme

This meme is a satirical display of a disorganised student completing their assignment just in time, after starting it far too late. It is a fully original meme, with inspiration from several other memes

library(magick)

#top left corner of meme
before = image_blank(400,400, color = "#f0f0f0") %>% 
  image_annotate("Me one hour before my \nSTATS 220 assignment is due\n I haven't even started!!!", color = "#000000", size = 20, font = "comicsans", gravity = "center")

# top right corner of meme
stress = image_read("https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcTJRe--gJgvkxq75CMJajILl2Df0HakkuSRwlmvWWUbvg&s") %>% 
  image_scale(400)


# bottom left corner of meme
after = image_blank(400,100, color = "#f0f0f0") %>% 
  image_annotate("Me after finishing it with 0.0000001 \nseconds to spare", color = "#000000", size = 20, font = "Bookman Old Style", gravity = "center")


# bottom right corner of meme
chilling = image_read("https://i.ytimg.com/vi/d0fOnvbr8Ro/maxresdefault.jpg") %>%
  image_scale(400) %>%
  image_annotate("Bīng qí lín", color = "#f0f0f0", size = 20, gravity = "south")




# first column of images
first_column = image_append(c(before, after), stack = TRUE)

# second column of images
second_column = image_append(c(stress, chilling), stack = TRUE)

#final image
meme = image_append(c(first_column, second_column))

# write the meme to a png
image_write(meme, "images/my_meme.png")

My animated GIF

This GIF is of Mohammed Salah, Liverpool Forward, scoring his 128th goal of his premier league career. This goal made him this equal top goal scorer in Liverpool’s premier league history, alongside Robbie Fowler. He went on to score his 129th later in this game, to become the record holder outright.

library(magick)

# the images
salah1 = image_read("images/salah/salah1.png")
salah2 = image_read("images/salah/salah2.png")
salah3 = image_read("images/salah/salah3.png")
salah4 = image_read("images/salah/salah4.png")
salah5 = image_read("images/salah/salah5.png")
salah6 = image_read("images/salah/salah6.png")

# the frames of the gif
frames = c(salah1, salah2, salah3, salah4, salah5, salah6)

salah_gif = image_animate(frames, fps = 2) %>%
  image_write("images/my_animation.gif")